home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / psion / s3host10.lha / Install_S3Host next >
Text File  |  1994-03-02  |  1KB  |  60 lines
  1. ;
  2. ; $VER: Install_S3Host 1.0 (02.03.94)
  3. ; (C) 1994 Oliver Wagner
  4. ;
  5.  
  6. (set #install-hd-msg
  7. (cat    "Where do you want the S3Host directory to be installed?"
  8. ))
  9.  
  10. (set #install-hd-help
  11. (cat    "The S3Host installation will create a directory named"
  12.         "S3Host and will copy all relevant files to this "
  13.         "directory. You must designate the place where to create "
  14.         "this directory."
  15. ))
  16.  
  17. ;
  18. ; Main
  19. ;
  20.  
  21. (set default-dest
  22.     (askdir
  23.         (prompt #install-hd-msg)
  24.         (help #install-hd-help)
  25.         (default @default-dest)
  26.     )
  27. )
  28. (set @default-dest
  29.     (tackon default-dest "S3Host")
  30. )
  31. (complete 10)
  32. (makedir @default-dest
  33.     (infos)
  34. )
  35. (complete 20)
  36. (copyfiles
  37.     (source "")
  38.     (choices "S3Host" "S3Host.guide" "S3Host.doc" )
  39.     (confirm)
  40.     (infos)
  41.     (prompt "Copying S3Host files...")
  42.     (help @copyfiles-help)
  43.     (dest @default-dest)
  44. )
  45. (complete 60)
  46. (makedir
  47.     (tackon @default-dest "ARexx")
  48. )
  49. (complete 70)
  50. (copyfiles
  51.     (source "ARexx/")
  52.     (dest (tackon @default-dest "ARexx/"))
  53.     (pattern "#?.s3hrx")
  54.     (optional nofail)
  55.     (prompt "Copying S3Host example ARexx scripts..." )
  56.     (help @copyfiles-help)
  57.     (confirm)
  58. )
  59. (complete 100)
  60.